home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / windows / tpwin31.zip / WFEXT.PAS < prev    next >
Pascal/Delphi Source File  |  1992-04-06  |  2KB  |  81 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       Turbo Pascal for Windows Run-time Library       }
  4. {       Windows 3.1 API Interface Unit                  }
  5. {       Windows File Manager Extensions definitions     }
  6. {                                                       }
  7. {       Copyright (c) 1992 Borland International        }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11.  
  12. unit WFExt;
  13.  
  14. interface
  15.  
  16. uses WinTypes;
  17.  
  18. const
  19.   Menu_Text_Len   = 40;
  20.  
  21.   fmMenu_First    = 1;
  22.   fmMenu_Last   = 99;
  23.  
  24.   fmEvent_Load    = 100;
  25.   fmEvent_Unload    = 101;
  26.   fmEvent_InitMenu  = 102;
  27.   fmEvent_User_Refresh  = 103;
  28.   fmEvent_SelChange = 104;
  29.  
  30.   fmFocus_Dir   = 1;
  31.   fmFocus_Tree    = 2;
  32.   fmFocus_Drives    = 3;
  33.   fmFocus_Search    = 4;
  34.  
  35.   fm_GetFocus   = wm_User + $0200;
  36.   fm_GetDriveInfo   = wm_User + $0201;
  37.   fm_GetSelCount    = wm_User + $0202;
  38.   fm_GetSelCountLFN = wm_User + $0203;  { LFN versions are odd }
  39.   fm_GetFileSel   = wm_User + $0204;
  40.   fm_GetFileSellFN  = wm_User + $0205;  { LFN versions are odd }
  41.   fm_Refresh_Windows  = wm_User + $0206;
  42.   fm_Reload_Extensions  = wm_User + $0207;
  43.  
  44. type
  45.   PFMS_GetFileSel = ^TFMS_GetFileSel;
  46.   TFMS_GetFileSel = record
  47.     wTime: Word;
  48.     wDate: Word;
  49.     dwSize: Longint;
  50.     bAttr: Byte;
  51.     szName: array[0..259] of Char;   { always fully qualified }
  52.   end;
  53.  
  54. type
  55.   PFMS_GetDriveInfo = ^TFMS_GetDriveInfo;    { for drive }
  56.   TFMS_GetDriveInfo = record
  57.     dwTotalSpace: Longint;
  58.     dwFreeSpace: Longint;
  59.     szPath: array[0..259] of Char;   { current directory }
  60.     szVolume: array[0..13] of Char;    { volume label }
  61.     szShare: array[0..127] of Char;    { if this is a net drive }
  62.   end;
  63.  
  64. type
  65.   PFMS_Load = ^TFMS_Load;
  66.   TFMS_Load = record
  67.     dwSize: Longint;       { for version checks }
  68.     szMenuName: array[0..Menu_Text_Len - 1] of Char;  { output }
  69.     Menu: HMenu;           { output }
  70.     wMenuDelta: Word;      { input }
  71.   end;
  72.  
  73. type
  74.   TFM_Ext_Proc = function(Handle: HWnd; w: Word; l: Longint): Longint;
  75.   TFM_UnDelete_Proc = function(Handle: HWnd; P: PChar): Longint;
  76.  
  77.  
  78. implementation
  79.  
  80. end.
  81.